home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO026.dsk / STARTUP.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  33 lines
  1. 100  REM    ************************************
  2. 110  REM    *                                  *
  3. 120  REM    * Stock Portfolio Tracking Program *
  4. 130  REM    *  Copyright 1986 by Eric P. King  *
  5. 140  REM     *         STARTUP V 2.10           *
  6. 150  REM    ************************************
  7. 160  REM 
  8. 170  CALL  PEEK(175) +256 * PEEK(176) -46
  9. 180  ONERR  GOTO 210
  10. 190 D$ =  CHR$(4): PRINT D$"PR#3": PRINT D$"VERIFY CONFIG"
  11. 200  PRINT D$"RUN STOCKTRK"
  12. 210  HOME : PRINT D$"PREFIX": INPUT P1$
  13. 220  PRINT : PRINT : & "CENTER","** ENSURE CAPS LOCK KEY IS DOWN **": PRINT : PRINT 
  14. 230  PRINT " THE BOOT PREFIX IS "P1$: PRINT : PRINT "Is this the path to be used to record your data? (Y/N)"
  15. 240  INPUT A$: IF A$ = "" GOTO 240
  16. 250  IF A$ = "Y" GOTO 420
  17. 260  HOME : PRINT "The path cannot be more than 3 levels deep.": PRINT "Please type carefully.": PRINT "The required /'s are added by the program"
  18. 270  PRINT "for you automatically.": PRINT : PRINT 
  19. 280  & "CENTER","Enter pathname elements. Up to 3 are allowed."
  20. 290  & "POS",1,14: CALL  -958: PRINT "Enter Volume name.  ";
  21. 300  & "IU","#=A..Z,/,.,0..9;*=A..Z";"*##############";U$(0)
  22. 310  IF U$(0) = "" GOTO 290
  23. 320 U$(0) = "/" +U$(0)
  24. 330  & "POS",1,16: CALL  -958: PRINT "Enter name.  ";
  25. 340  & "IU","#=A..Z,/,.,0..9;*=A..Z";"*##############";U$(1)
  26. 350  IF U$(1) = "" GOTO 410
  27. 360 U$(0) = U$(0) +"/" +U$(1)
  28. 370  & "POS",1,18: CALL  -958: PRINT "Enter name.  ";
  29. 380  & "IU","#=A..Z,/,.,0..9;*=A..Z";"*##############";U$(2)
  30. 390  IF U$(2) = "" GOTO 410
  31. 400 U$(0) = U$(0) +"/" +U$(2)
  32. 410 P1$ = U$(0)
  33. 420  PRINT D$"OPEN CONFIG": PRINT D$"WRITE CONFIG": PRINT P1$: PRINT D$"CLOSE": GOTO 200